home *** CD-ROM | disk | FTP | other *** search
- @Echo off
- Cls
- Echo Project "%1" being B O O K E D for comparative Gantt charts.
- : This batch file will keep a maximum of 10 backups of project.REF files.
- : To see the old files enter "VIEW PLANxx" where xx is 01 to 10.
- If .%1 == . Syntax1 %0
- Echo ----------------------------------------------------------------------
- If exist %1 Syntax2 %0 %1 %2 %3 %4 %5 %6 %7
- If not exist %1.PRT Syntax3 %0 %1 %2 %3 %4 %5 %6 %7
- If Not Exist %1.REF GoTo Done
- If Not Exist Plan01.REF GoTo Set01
- If Not Exist Plan02.REF GoTo Set02
- If Not Exist Plan03.REF GoTo Set03
- If Not Exist Plan04.REF GoTo Set04
- If Not Exist Plan05.REF GoTo Set05
- If Not Exist Plan06.REF GoTo Set06
- If Not Exist Plan07.REF GoTo Set07
- If Not Exist Plan08.REF GoTo Set08
- If Not Exist Plan09.REF GoTo Set09
- If Not Exist Plan10.REF GoTo Set10
- Echo All backups are full. Please erases or rename the "PLAN??.REF" files.
- GoTo Exit
- :Set01
- Copy %1.REF Plan01.REF >Nul
- GoTo Done
- :Set02
- Copy %1.REF Plan02.REF >Nul
- GoTo Done
- :Set03
- Copy %1.REF Plan03.REF >Nul
- GoTo Done
- :Set04
- Copy %1.REF Plan04.REF >Nul
- GoTo Done
- :Set05
- Copy %1.REF Plan05.REF >Nul
- GoTo Done
- :Set06
- Copy %1.REF Plan06.REF >Nul
- GoTo Done
- :Set07
- Copy %1.REF Plan07.REF >Nul
- GoTo Done
- :Set08
- Copy %1.REF Plan08.REF >Nul
- GoTo Done
- :Set09
- Copy %1.REF Plan09.REF >Nul
- GoTo Done
- :Set10
- Copy %1.REF Plan10.REF >Nul
- :Done
- Copy C:\Packages\GanttPac\BookIt.KBG %1.GKB >nul
- Gantt2 %1
- Erase %1.GKB
- Menu %1
- :Exit
- Pause
- Menu %1